(*----------------------------------------------------------------------
  :Program.    FileNames1.def
  :Contents.   Funktionierendes GetExtension (s. FileNames)
  :Author.     Hubert Bildstein
  :Copyright.  Public Domain
  :Language.   Modula-2
  :Translator. M2Amiga V3.3d
  :History.    V1.0   5.12.1990
  :Remark.     GetExtension aus FileNames liefert bei mir keine
  :Remark.     sinnvollen Resultate !?
----------------------------------------------------------------------*)

DEFINITION MODULE FileNames1;

PROCEDURE GetExtension (VAR fname, extension : ARRAY OF CHAR;
                        VAR len : INTEGER);

END FileNames1.
